home *** CD-ROM | disk | FTP | other *** search
/ Tech Arsenal 1 / Tech Arsenal (Arsenal Computer).ISO / tek-19 / arcl.zip / ARCL.LSP < prev    next >
Text File  |  1991-02-08  |  384b  |  14 lines
  1. ;ARCL.LSP By Brian Carlson 7/19/88
  2.  
  3. (Defun C:ARCL (/ L S R D A C)
  4.  (setvar "cmdecho" 0)
  5.  (setq L (getreal "\nLength of arc: "))
  6.  (setq S (getpoint "\nStart of arc: "))
  7.  (setq R (getdist S "\nRadius: "))
  8.  (setq D (getangle S "\nAngle to center: "))
  9.  (setq A (/ (* (/ 180.0 pi) L) R))
  10.  (setq C (polar S D R))
  11.  (command "ARC" S "C" C "A" A)
  12.  (setvar "cmdecho" 1)
  13.  (princ)
  14. )